home *** CD-ROM | disk | FTP | other *** search
/ Delphi Informant Complete 1995 - 2000 / Delphi Informant Complete 1995 to 2000.iso / Delphi Informant Magazine Complete Works SOURCE CODE 1998.rar / 1998 / Sep / di9809nu / RegistU.dfm / RegistU.txt
Text File  |  1998-06-25  |  7KB  |  233 lines
  1. object Form1: TForm1
  2.   Left = 353
  3.   Top = 245
  4.   BorderStyle = bsNone
  5.   Caption = 'Form1'
  6.   ClientHeight = 290
  7.   ClientWidth = 421
  8.   Font.Charset = DEFAULT_CHARSET
  9.   Font.Color = clWindowText
  10.   Font.Height = -11
  11.   Font.Name = 'MS Sans Serif'
  12.   Font.Style = []
  13.   PixelsPerInch = 96
  14.   TextHeight = 13
  15.   object PageControl1: TPageControl
  16.     Left = 0
  17.     Top = 0
  18.     Width = 421
  19.     Height = 290
  20.     ActivePage = InformationSheet
  21.     Align = alClient
  22.     TabOrder = 0
  23.     OnChanging = PageControl1Changing
  24.     object InformationSheet: TTabSheet
  25.       TabVisible = False
  26.       OnExit = InformationSheetExit
  27.       object Label1: TLabel
  28.         Left = 72
  29.         Top = 24
  30.         Width = 279
  31.         Height = 29
  32.         Caption = 'Registration Information'
  33.         Font.Charset = DEFAULT_CHARSET
  34.         Font.Color = clWindowText
  35.         Font.Height = -24
  36.         Font.Name = 'MS Sans Serif'
  37.         Font.Style = [fsBold]
  38.         ParentFont = False
  39.       end
  40.       object Label2: TLabel
  41.         Left = 32
  42.         Top = 96
  43.         Width = 46
  44.         Height = 16
  45.         Caption = 'Name:'
  46.         Font.Charset = DEFAULT_CHARSET
  47.         Font.Color = clWindowText
  48.         Font.Height = -13
  49.         Font.Name = 'MS Sans Serif'
  50.         Font.Style = [fsBold]
  51.         ParentFont = False
  52.       end
  53.       object Label3: TLabel
  54.         Left = 32
  55.         Top = 128
  56.         Width = 104
  57.         Height = 16
  58.         Caption = 'Serial Number:'
  59.         Font.Charset = DEFAULT_CHARSET
  60.         Font.Color = clWindowText
  61.         Font.Height = -13
  62.         Font.Name = 'MS Sans Serif'
  63.         Font.Style = [fsBold]
  64.         ParentFont = False
  65.       end
  66.       object Label4: TLabel
  67.         Left = 32
  68.         Top = 160
  69.         Width = 49
  70.         Height = 16
  71.         Caption = 'E-Mail:'
  72.         Font.Charset = DEFAULT_CHARSET
  73.         Font.Color = clWindowText
  74.         Font.Height = -13
  75.         Font.Name = 'MS Sans Serif'
  76.         Font.Style = [fsBold]
  77.         ParentFont = False
  78.       end
  79.       object edName: TEdit
  80.         Left = 152
  81.         Top = 92
  82.         Width = 233
  83.         Height = 21
  84.         MaxLength = 35
  85.         TabOrder = 0
  86.       end
  87.       object edSerialNumber: TEdit
  88.         Left = 152
  89.         Top = 124
  90.         Width = 233
  91.         Height = 21
  92.         MaxLength = 35
  93.         TabOrder = 1
  94.       end
  95.       object edE_Mail: TEdit
  96.         Left = 152
  97.         Top = 160
  98.         Width = 233
  99.         Height = 21
  100.         MaxLength = 35
  101.         TabOrder = 2
  102.       end
  103.       object btnCancel1: TBitBtn
  104.         Left = 240
  105.         Top = 224
  106.         Width = 75
  107.         Height = 25
  108.         TabOrder = 3
  109.         OnClick = btnCancel1Click
  110.         Kind = bkCancel
  111.       end
  112.       object btnNext: TBitBtn
  113.         Left = 112
  114.         Top = 224
  115.         Width = 75
  116.         Height = 25
  117.         Caption = 'Next'
  118.         TabOrder = 4
  119.         OnClick = btnNextClick
  120.         Glyph.Data = {
  121.           76010000424D7601000000000000760000002800000020000000100000000100
  122.           04000000000000010000120B0000120B00001000000000000000000000000000
  123.           800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  124.           FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  125.           3333333333333333333333333333333333333FFF333333333333000333333333
  126.           3333777FFF3FFFFF33330B000300000333337F777F777773F333000E00BFBFB0
  127.           3333777F773333F7F333000E0BFBF0003333777F7F3337773F33000E0FBFBFBF
  128.           0333777F7F3333FF7FFF000E0BFBF0000003777F7F3337777773000E0FBFBFBF
  129.           BFB0777F7F33FFFFFFF7000E0BF000000003777F7FF777777773000000BFB033
  130.           33337777773FF733333333333300033333333333337773333333333333333333
  131.           3333333333333333333333333333333333333333333333333333333333333333
  132.           3333333333333333333333333333333333333333333333333333}
  133.         NumGlyphs = 2
  134.       end
  135.     end
  136.     object SendSheet: TTabSheet
  137.       TabVisible = False
  138.       object rdgSendRegInfo: TRadioGroup
  139.         Left = 88
  140.         Top = 32
  141.         Width = 257
  142.         Height = 105
  143.         Caption = 'Send Registration Information'
  144.         Font.Charset = DEFAULT_CHARSET
  145.         Font.Color = clWindowText
  146.         Font.Height = -13
  147.         Font.Name = 'MS Sans Serif'
  148.         Font.Style = [fsBold]
  149.         Items.Strings = (
  150.           'Via Modem'
  151.           'Via the Internet')
  152.         ParentFont = False
  153.         TabOrder = 0
  154.       end
  155.       object btnFinish: TBitBtn
  156.         Left = 112
  157.         Top = 224
  158.         Width = 75
  159.         Height = 25
  160.         Caption = 'Finish'
  161.         TabOrder = 1
  162.         OnClick = btnFinishClick
  163.         Glyph.Data = {
  164.           76010000424D7601000000000000760000002800000020000000100000000100
  165.           04000000000000010000120B0000120B00001000000000000000000000000000
  166.           800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  167.           FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
  168.           03333377777777777F333301111111110333337F333333337F33330111111111
  169.           0333337F333333337F333301111111110333337F333333337F33330111111111
  170.           0333337F333333337F333301111111110333337F333333337F33330111111111
  171.           0333337F3333333F7F333301111111B10333337F333333737F33330111111111
  172.           0333337F333333337F333301111111110333337F33FFFFF37F3333011EEEEE11
  173.           0333337F377777F37F3333011EEEEE110333337F37FFF7F37F3333011EEEEE11
  174.           0333337F377777337F333301111111110333337F333333337F33330111111111
  175.           0333337FFFFFFFFF7F3333000000000003333377777777777333}
  176.         NumGlyphs = 2
  177.       end
  178.       object btnCancel2: TBitBtn
  179.         Left = 240
  180.         Top = 224
  181.         Width = 75
  182.         Height = 25
  183.         TabOrder = 2
  184.         OnClick = btnCancel2Click
  185.         Kind = bkCancel
  186.       end
  187.     end
  188.   end
  189.   object ApdComPort1: TApdComPort
  190.     ComNumber = 1
  191.     AutoOpen = False
  192.     TraceName = 'APRO.TRC'
  193.     LogName = 'APRO.LOG'
  194.     TapiMode = tmOn
  195.     Left = 380
  196.     Top = 214
  197.   end
  198.   object ApdWinsockPort1: TApdWinsockPort
  199.     WsPort = 'telnet'
  200.     BufferFull = 3072
  201.     BufferResume = 1024
  202.     ComNumber = 1
  203.     TraceName = 'APRO.TRC'
  204.     LogName = 'APRO.LOG'
  205.     SWFlowOptions = swfTransmit
  206.     Left = 340
  207.     Top = 214
  208.   end
  209.   object ApdProtocol1: TApdProtocol
  210.     ComPort = ApdComPort1
  211.     ProtocolType = ptZmodem
  212.     FileMask = 'C:\WINDOWS\TEMP\REG_INFO.TXT'
  213.     BlockCheckMethod = bcmCrc32
  214.     HandshakeWait = 1092
  215.     Overhead = 20
  216.     StatusInterval = 10
  217.     ZmodemOptionOverride = True
  218.     KermitPadCharacter = #0
  219.     Left = 340
  220.     Top = 246
  221.   end
  222.   object ApdTapiDevice1: TApdTapiDevice
  223.     SelectedDevice = 'Compaq Presario 56K-VSC'
  224.     ComPort = ApdComPort1
  225.     ShowTapiDevices = False
  226.     ShowPorts = False
  227.     EnableVoice = False
  228.     OnTapiConnect = ApdTapiDevice1TapiConnect
  229.     Left = 380
  230.     Top = 246
  231.   end
  232. end
  233.